home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / languages / obrn-a_1.5_lib.lha / oberon-a / source1.lha / source / amiga / BattClock.mod < prev    next >
Encoding:
Text File  |  1995-01-26  |  1.3 KB  |  63 lines
  1. (***************************************************************************
  2.  
  3.      $RCSfile: BattClock.mod $
  4.   Description: Interface to battclock.resource
  5.  
  6.    Created by: fjc (Frank Copeland)
  7.     $Revision: 3.7 $
  8.       $Author: fjc $
  9.         $Date: 1995/01/26 02:39:55 $
  10.  
  11.   $VER: battclock.h 36.4 (1.5.90)
  12.   Includes Release 40.15
  13.  
  14.   (C) Copyright 1985-1993 Commodore-Amiga, Inc.
  15.       All Rights Reserved
  16.  
  17.   Oberon-A interface Copyright © 1994-1995, Frank Copeland.
  18.   This file is part of the Oberon-A Interface.
  19.   See Oberon-A.doc for conditions of use and distribution.
  20.  
  21. ***************************************************************************)
  22.  
  23. <* STANDARD- *> <* INITIALISE- *> <* MAIN- *>
  24.  
  25. MODULE [2] BattClock;
  26.  
  27. <*$ CaseChk-  IndexChk- LongVars+ NilChk-  *>
  28. <*$ RangeChk- StackChk- TypeChk-  OvflChk- *>
  29.  
  30. IMPORT e := Exec;
  31.  
  32.  
  33. (*
  34. **
  35. **      BattClock resource name strings.
  36. **
  37. *)
  38.  
  39. CONST
  40.  
  41.   battClockName * = "battclock.resource";
  42.  
  43.  
  44. (**-- Resource Base variable --------------------------------------------*)
  45.  
  46. VAR
  47.  
  48.   base : e.APTR;
  49.  
  50.  
  51. (**-- Resource Functions ------------------------------------------------*)
  52.  
  53. (*
  54. **      $VER: battclock_protos.h 1.3 (3.5.90)
  55. *)
  56.  
  57. PROCEDURE ResetBattClock* [base,-6] ();
  58. PROCEDURE ReadBattClock* [base,-12] () : e.ULONG;
  59. PROCEDURE WriteBattClock* [base,-18] ( time [0] : e.ULONG );
  60.  
  61. BEGIN base := NIL
  62. END BattClock.
  63.